home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 156
/
156.d81
/
b.software print
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
2KB
|
53 lines
10 poke53281,0:poke53280,0
20 dv=peek(186):ifdv<8thendv=8
30 print"[147]"
50 d=4
60 print" [129][195][210][193][218][217] [198][197][206][196][197][210]'[211] [193][195][210][197][211] [207]' [211][207][198][212][215][193][210][197]
62 [153]" chr$et your printer ready and press
64 print" [211][208][193][195][197] to print out [195]razy [198]ender's
66 [153]" (NULL)right$(NULL)(NULL) (NULL)' (NULL)(NULL)valstr$ (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val. (NULL)o order, send
68 print" a letter to:
70 [153]"cont lenrazy ascender
72 print" 606 [195]ommon [211]treet
74 [153]" (NULL)hreveport (NULL)atn 71101
75 print" [208]lease do not call!
76 [153]" (NULL)oftware with a manual - $10
78 print" [211]oftware w/o a manual - $5
80 [153]" (NULL)(NULL)atnlenval - (NULL)rint the (NULL)ist
82 print" [204] - [209]uit to [204][207][193][196][211][212][193][210]
84 [151]198,0
86 [161]a$:[139]a$[179][177]" "[175]a$[179][177]"l"[167]86
88 [139]a$[178]"l"[167]40000
90 dt$[178]"......................................."
92 t$[178]" "
100 [159]2,dv,2,"software 1,p,r"
101 [159]4,d,7
102 [152]4,t$t$t$t$"len(NULL)atn(NULL)(NULL) ascval(NULL)str$val(NULL)'(NULL) (NULL)right$(NULL)(NULL) (NULL)' (NULL)(NULL)valstr$ (NULL)(NULL)asc(NULL)(NULL)atn(NULL)val":[152]4
104 [152]4,t$"(NULL)(NULL)(NULL)chr$(NULL)atn(NULL) (NULL)(NULL)peek(NULL)right$(NULL)left$val(NULL)";
105 [152]4," (NULL)atn(NULL)(NULL)atn(NULL)"
106 [152]4,t$"-------------------------------------------------";
107 [152]4,"---------------------"
109 [161]#2,a$:[161]#2,a$
110 [132]2,a$:e[178]st:[139]e[178]66[167]200
120 [152]4,t$a$;[200](dt$,36[171][195](a$));
130 [132]2,a$
140 [152]4,a$;[200](dt$,30[171][195](a$));
150 [132]2,a$
160 [139]a$[178]"y"[167][152]4,"(NULL)es"
170 [139]a$[178]"n"[167][152]4,"(NULL)o"
180 [137]110
200 [160]4:[160]2
210 [151]186,dv
220 [138]
10000 d[178][194](186):n$[178]"b.software print":[159]15,d,15,"s0:"[170]n$:[160]15:[148]n$,d:[128]
40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
40060 [130]:[142]
40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]